home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 4 / The Arsenal Files 4 (Arsenal Computer).ISO / gen_prog / inst103.exe / SOUND.CFG < prev    next >
Text File  |  1994-12-21  |  1KB  |  56 lines
  1. build
  2. clrscr
  3. put 31 into #textcolor
  4. clreol
  5. center 1 "Demo Install Program"
  6. gotoxy 1 25
  7. clreol
  8. center 25 "(c) 1994 by Matthew Mastracci"
  9. put 7 into #textcolor
  10. writechar 1 2 1840 "▒"
  11. show
  12. window 5 11 75 14 68 79 68 "" 1
  13. gotoxy 7 12
  14. put 79 into #textcolor
  15. writeln "Where should the program be installed?"
  16. put 63 into #textcolor
  17. put "." into $dir
  18. fexpand $dir
  19. readfield 7 13 63 $dir
  20. put 7 into #textcolor
  21. window 27 8 56 17 17 31 17 "" 1
  22. build
  23. put 31 into #textcolor
  24. gotoxy 29 9
  25. writeln "Sound Source:"
  26. gotoxy 29 11
  27. writeln "1. PC Speaker"
  28. gotoxy 29 12
  29. writeln "2. Adlib (music only)"
  30. gotoxy 29 13
  31. writeln "3. Sound Blaster"
  32. gotoxy 29 14
  33. writeln "4. Sound Blaster Pro"
  34. gotoxy 29 16
  35. write "Select: "
  36. put 63 into #textcolor
  37. show
  38. :Read
  39. put "" into $sound
  40. put 1 into #readupdown
  41. readfield 37 16 1 $sound
  42. put 0 into #readupdown
  43. put $sound into #sound
  44. if #sound > 4 then Read
  45. if #sound < 1 then Read
  46. put 7 into #textcolor
  47. closewin
  48. closewin
  49. clrscr
  50. writeln "Writing configuration..."
  51. writeln
  52. fopen "demodata.dat" 1
  53. fwrite "Directory: " $dir
  54. fwrite "Sound: " $sound
  55. fclose
  56.